﻿Imports System.IO

Public class ThemeManager

#Region "Theme-Related Method"
    
    Public Shared Function GetThemes() As List(Of Theme)

        Dim dInfo As DirectoryInfo = New DirectoryInfo(System.Web.HttpContext.Current.Server.MapPath("~/App_Themes/"))
        Dim dArrInfo As DirectoryInfo() = dInfo.GetDirectories()

        Dim List1 As New List(Of Theme)
        Dim sDirectory As DirectoryInfo

        For Each sDirectory In dArrInfo
            Dim TempTheme As New Theme
            TempTheme.name = sDirectory.name
            List1.Add(TempTheme)
        Next

        Return List1
    End Function

#End Region


End Class
